home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue70 / DBEX / Listing6.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-04-30  |  319 b   |  12 lines
  1. var
  2.   intResult: integer;
  3. begin
  4.   intResult:=SQLConnection1.ExecuteDirect(
  5.   'UPDATE CUSTOMER SET CONTACT_FIRST = "Marge" '+
  6.   'WHERE CUSTOMER = "Mrs. Beauvais"');
  7.   if intResult >= 0 then
  8.     ShowMessage('Success ('+IntToStr(intResult)+')')
  9.   else
  10.     ShowMessage('Failed  ('+IntToStr(intResult)+')');
  11. end;
  12.